home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
programs
/
write
/
module
/
matchbracket.module
< prev
next >
Wrap
Text File
|
1996-09-18
|
668b
|
66 lines
MODULE MatchBracket;
PROCEDURE Match;
BEGIN
IF CursorLeft(0) THEN
IF MatchBracket THEN
Delay(10);
MatchBracket;
END;
CursorRight(0);
END;
END Match;
PROCEDURE Match2;
BEGIN
IF MatchBracket THEN
Delay(10);
MatchBracket;
END;
END Match2;
KEY ")"
WriteText(")");
Match
END;
KEY "shift alt +"
WriteText("}");
Match
END;
KEY "alt +"
WriteText("]");
Match
END;
KEY "-numpad ]"
WriteText("]");
Match
END;
KEY "-numpad }"
WriteText("}");
Match
END;
KEY "upstroke left"
Match2
END;
KEY "upstroke right"
Match2
END;
KEY "upstroke up"
Match2
END;
KEY "upstroke down"
Match2
END;
END MatchBracket.